Campaign Events Analysis

Intro

##states most visited by each

Kamala_states <- filter(events, cand_lastname == "Harris")%>%
    count(state)

Bernie_states <- filter(events, cand_lastname == "Sanders")%>%
    count(state)

Biden_states <- filter(events, cand_lastname == "Biden")%>%
    count(state)

##cities most visited by each

Biden_cities <- filter(events, cand_lastname == "Biden")%>%
    count(city)

Bernie_cities <- filter(events, cand_lastname == "Sanders")%>%
    count(city)
  
Kamala_cities <- filter(events, cand_lastname == "Harris")%>%
    count(city)

##popular months for events by candidates

events_month <- events%>%
  mutate(month(date))
  
Kamala_months <- events_month%>%
  filter(cand_lastname == "Harris")%>%
  count(month = month(date))

Biden_months <- events_month%>%
  filter(cand_lastname == "Biden")%>%
  count(month = month(date))

Sanders_months <- events_month%>%
  filter(cand_lastname == "Sanders")%>%
  count(month = month(date))

##Charts based on months

Harris_Chart <- Kamala_months%>%
  plot_ly(x = ~month,
          y = ~n, 
          type = "bar")

harris_graph <- Harris_Chart%>%
  layout(title = "Visits for Harris per Month")

Biden_Chart <- Biden_months%>%
  plot_ly(x = ~month,
          y = ~n, 
          type = "bar")

biden_graph <- Biden_Chart%>%
  layout(title = "Visits for Biden per Month")

Sanders_Chart <- Sanders_months%>%
  plot_ly(x = ~month,
          y = ~n, 
          type = "bar")

sanders_graph <- Sanders_Chart%>%
  layout(title = "Visits for Sanders per Month")

Harris_Chart

Biden_Chart

Sanders_Chart

harris_graph